/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / apel / emu-mule.elc.z / emu-mule.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 36 3a 30 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:46:03 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 61 70 65 6c |s-20.3/l|isp/apel|
|000000a0| 2f 65 6d 75 2d 6d 75 6c | 65 2e 65 6c 0a 3b 3b 3b |/emu-mul|e.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 65 6d 75 2d 6d 75 | (error |"`emu-mu|
|000001f0| 6c 65 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |le.el' w|as compi|
|00000200| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000210| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000220| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000230| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000240| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000250| 29 29 0a 0a 28 72 65 71 | 75 69 72 65 20 27 6d 75 |))..(req|uire 'mu|
|00000260| 6c 65 29 0a 3b 3b 3b 23 | 23 23 63 6f 64 69 6e 67 |le).;;;#|##coding|
|00000270| 20 73 79 73 74 65 6d 3a | 20 65 73 63 61 70 65 2d | system:| escape-|
|00000280| 71 75 6f 74 65 64 0a 0a | 28 62 79 74 65 2d 63 6f |quoted..|(byte-co|
|00000290| 64 65 20 22 08 ab 8a c1 | c2 21 88 c3 c4 4d 88 aa |de "....|.!...M..|
|000002a0| 8f 0d ab 8c c1 c6 21 88 | c7 c8 4d 88 c9 ca 4d 88 |......!.|..M...M.|
|000002b0| cb cc cd 5c 22 88 cb ce | cf 5c 22 88 cb d0 d1 5c |...\"...|.\"....\|
|000002c0| 22 88 cb d2 d3 5c 22 88 | cb d4 d5 5c 22 88 cb d6 |"....\".|...\"...|
|000002d0| d7 5c 22 88 cb d8 d9 5c | 22 88 cb da db 5c 22 87 |.\"....\|"....\".|
|000002e0| 22 20 5b 72 75 6e 6e 69 | 6e 67 2d 65 6d 61 63 73 |" [runni|ng-emacs|
|000002f0| 2d 31 39 20 72 65 71 75 | 69 72 65 20 65 6d 75 2d |-19 requ|ire emu-|
|00000300| 31 39 20 66 6f 6e 74 73 | 65 74 2d 70 69 78 65 6c |19 fonts|et-pixel|
|00000310| 2d 73 69 7a 65 20 23 5b | 28 66 6f 6e 74 73 65 74 |-size #[|(fontset|
|00000320| 29 20 22 c0 c1 5c 6e 21 | 41 c3 48 21 89 1c c5 48 |) "..\n!|A.H!...H|
|00000330| 89 1e 06 c7 55 ab 85 0c | c8 48 aa a1 1b 0e 06 c3 |....U...|.H......|
|00000340| 55 ad 9b 0c c7 48 1e 09 | ca cb 1b 0e 09 5c 22 ab |U....H..|.....\".|
|00000350| 8d cc 1b 0e 09 c3 94 54 | c3 95 53 4f 21 aa 81 c3 |.......T|..SO!...|
|00000360| 29 2a 87 22 20 5b 67 65 | 74 2d 66 6f 6e 74 2d 69 |)*." [ge|t-font-i|
|00000370| 6e 66 6f 20 67 65 74 2d | 66 6f 6e 74 73 65 74 2d |nfo get-|fontset-|
|00000380| 69 6e 66 6f 20 66 6f 6e | 74 73 65 74 20 30 20 66 |info fon|tset 0 f|
|00000390| 6f 6e 74 20 34 20 6f 70 | 65 6e 20 31 20 35 20 70 |ont 4 op|en 1 5 p|
|000003a0| 61 74 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |at strin|g-match |
|000003b0| 22 2d 5b 30 2d 39 5d 2b | 2d 22 20 73 74 72 69 6e |"-[0-9]+|-" strin|
|000003c0| 67 2d 74 6f 2d 6e 75 6d | 62 65 72 5d 20 35 5d 20 |g-to-num|ber] 5] |
|000003d0| 72 75 6e 6e 69 6e 67 2d | 65 6d 61 63 73 2d 31 38 |running-|emacs-18|
|000003e0| 20 65 6d 75 2d 31 38 20 | 6d 61 6b 65 2d 6f 76 65 | emu-18 |make-ove|
|000003f0| 72 6c 61 79 20 23 5b 28 | 62 65 67 20 65 6e 64 20 |rlay #[(|beg end |
|00000400| 26 6f 70 74 69 6f 6e 61 | 6c 20 62 75 66 66 65 72 |&optiona|l buffer|
|00000410| 20 74 79 70 65 29 20 22 | c0 87 22 20 5b 6e 69 6c | type) "|.." [nil|
|00000420| 5d 20 31 5d 20 6f 76 65 | 72 6c 61 79 2d 70 75 74 |] 1] ove|rlay-put|
|00000430| 20 23 5b 28 6f 76 65 72 | 6c 61 79 20 70 72 6f 70 | #[(over|lay prop|
|00000440| 20 76 61 6c 75 65 29 20 | 22 c0 87 22 20 5b 6e 69 | value) |".." [ni|
|00000450| 6c 5d 20 31 5d 20 64 65 | 66 61 6c 69 61 73 20 6d |l] 1] de|falias m|
|00000460| 61 6b 65 2d 63 68 61 72 | 20 6d 61 6b 65 2d 63 68 |ake-char| make-ch|
|00000470| 61 72 61 63 74 65 72 20 | 66 69 6e 64 2d 6e 6f 6e |aracter |find-non|
|00000480| 2d 61 73 63 69 69 2d 63 | 68 61 72 73 65 74 2d 73 |-ascii-c|harset-s|
|00000490| 74 72 69 6e 67 20 66 69 | 6e 64 2d 63 68 61 72 73 |tring fi|nd-chars|
|000004a0| 65 74 2d 73 74 72 69 6e | 67 20 66 69 6e 64 2d 6e |et-strin|g find-n|
|000004b0| 6f 6e 2d 61 73 63 69 69 | 2d 63 68 61 72 73 65 74 |on-ascii|-charset|
|000004c0| 2d 72 65 67 69 6f 6e 20 | 66 69 6e 64 2d 63 68 61 |-region |find-cha|
|000004d0| 72 73 65 74 2d 72 65 67 | 69 6f 6e 20 63 68 61 72 |rset-reg|ion char|
|000004e0| 73 65 74 2d 62 79 74 65 | 73 20 63 68 61 72 2d 62 |set-byte|s char-b|
|000004f0| 79 74 65 73 20 63 68 61 | 72 73 65 74 2d 64 65 73 |ytes cha|rset-des|
|00000500| 63 72 69 70 74 69 6f 6e | 20 63 68 61 72 2d 64 65 |cription| char-de|
|00000510| 73 63 72 69 70 74 69 6f | 6e 20 63 68 61 72 73 65 |scriptio|n charse|
|00000520| 74 2d 72 65 67 69 73 74 | 72 79 20 63 68 61 72 2d |t-regist|ry char-|
|00000530| 72 65 67 69 73 74 72 79 | 20 63 68 61 72 73 65 74 |registry| charset|
|00000540| 2d 63 6f 6c 75 6d 6e 73 | 20 63 68 61 72 2d 77 69 |-columns| char-wi|
|00000550| 64 74 68 20 63 68 61 72 | 73 65 74 2d 64 69 72 65 |dth char|set-dire|
|00000560| 63 74 69 6f 6e 20 63 68 | 61 72 2d 64 69 72 65 63 |ction ch|ar-direc|
|00000570| 74 69 6f 6e 5d 20 33 29 | 0a 28 64 65 66 61 6c 69 |tion] 3)|.(defali|
|00000580| 61 73 20 27 65 6e 63 6f | 64 65 2d 63 6f 64 69 6e |as 'enco|de-codin|
|00000590| 67 2d 72 65 67 69 6f 6e | 20 23 5b 28 73 74 61 72 |g-region| #[(star|
|000005a0| 74 20 65 6e 64 20 63 6f | 64 69 6e 67 2d 73 79 73 |t end co|ding-sys|
|000005b0| 74 65 6d 29 20 22 c0 09 | 5c 6e 0b 0c 24 87 22 20 |tem) "..|\n..$." |
|000005c0| 5b 63 6f 64 65 2d 63 6f | 6e 76 65 72 74 2d 72 65 |[code-co|nvert-re|
|000005d0| 67 69 6f 6e 20 73 74 61 | 72 74 20 65 6e 64 20 2a |gion sta|rt end *|
|000005e0| 69 6e 74 65 72 6e 61 6c | 2a 20 63 6f 64 69 6e 67 |internal|* coding|
|000005f0| 2d 73 79 73 74 65 6d 5d | 20 35 20 22 5c 0a 45 6e |-system]| 5 "\.En|
|00000600| 63 6f 64 65 20 74 68 65 | 20 74 65 78 74 20 62 65 |code the| text be|
|00000610| 74 77 65 65 6e 20 53 54 | 41 52 54 20 61 6e 64 20 |tween ST|ART and |
|00000620| 45 4e 44 20 74 6f 20 43 | 4f 44 49 4e 47 2d 53 59 |END to C|ODING-SY|
|00000630| 53 54 45 4d 2e 0a 5b 45 | 4d 41 43 53 20 32 30 20 |STEM..[E|MACS 20 |
|00000640| 65 6d 75 6c 61 74 69 6e | 67 20 66 75 6e 63 74 69 |emulatin|g functi|
|00000650| 6f 6e 5d 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |on]"]).(|defalias|
|00000660| 20 27 64 65 63 6f 64 65 | 2d 63 6f 64 69 6e 67 2d | 'decode|-coding-|
|00000670| 72 65 67 69 6f 6e 20 23 | 5b 28 73 74 61 72 74 20 |region #|[(start |
|00000680| 65 6e 64 20 63 6f 64 69 | 6e 67 2d 73 79 73 74 65 |end codi|ng-syste|
|00000690| 6d 29 20 22 c0 09 5c 6e | 0b 0c 24 87 22 20 5b 63 |m) "..\n|..$." [c|
|000006a0| 6f 64 65 2d 63 6f 6e 76 | 65 72 74 2d 72 65 67 69 |ode-conv|ert-regi|
|000006b0| 6f 6e 20 73 74 61 72 74 | 20 65 6e 64 20 63 6f 64 |on start| end cod|
|000006c0| 69 6e 67 2d 73 79 73 74 | 65 6d 20 2a 69 6e 74 65 |ing-syst|em *inte|
|000006d0| 72 6e 61 6c 2a 5d 20 35 | 20 22 5c 0a 44 65 63 6f |rnal*] 5| "\.Deco|
|000006e0| 64 65 20 74 68 65 20 74 | 65 78 74 20 62 65 74 77 |de the t|ext betw|
|000006f0| 65 65 6e 20 53 54 41 52 | 54 20 61 6e 64 20 45 4e |een STAR|T and EN|
|00000700| 44 20 77 68 69 63 68 20 | 69 73 20 65 6e 63 6f 64 |D which |is encod|
|00000710| 65 64 20 69 6e 20 43 4f | 44 49 4e 47 2d 53 59 53 |ed in CO|DING-SYS|
|00000720| 54 45 4d 2e 0a 5b 45 4d | 41 43 53 20 32 30 20 65 |TEM..[EM|ACS 20 e|
|00000730| 6d 75 6c 61 74 69 6e 67 | 20 66 75 6e 63 74 69 6f |mulating| functio|
|00000740| 6e 5d 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |n]"]).(d|efalias |
|00000750| 27 65 6e 63 6f 64 65 2d | 63 6f 64 69 6e 67 2d 73 |'encode-|coding-s|
|00000760| 74 72 69 6e 67 20 23 5b | 28 73 74 72 20 63 6f 64 |tring #[|(str cod|
|00000770| 69 6e 67 2d 73 79 73 74 | 65 6d 29 20 22 c0 09 5c |ing-syst|em) "..\|
|00000780| 6e 0b 23 87 22 20 5b 63 | 6f 64 65 2d 63 6f 6e 76 |n.#." [c|ode-conv|
|00000790| 65 72 74 2d 73 74 72 69 | 6e 67 20 73 74 72 20 2a |ert-stri|ng str *|
|000007a0| 69 6e 74 65 72 6e 61 6c | 2a 20 63 6f 64 69 6e 67 |internal|* coding|
|000007b0| 2d 73 79 73 74 65 6d 5d | 20 34 20 22 5c 0a 45 6e |-system]| 4 "\.En|
|000007c0| 63 6f 64 65 20 74 68 65 | 20 53 54 52 49 4e 47 20 |code the| STRING |
|000007d0| 74 6f 20 43 4f 44 49 4e | 47 2d 53 59 53 54 45 4d |to CODIN|G-SYSTEM|
|000007e0| 2e 0a 5b 45 4d 41 43 53 | 20 32 30 20 65 6d 75 6c |..[EMACS| 20 emul|
|000007f0| 61 74 69 6e 67 20 66 75 | 6e 63 74 69 6f 6e 5d 22 |ating fu|nction]"|
|00000800| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 65 |]).(defa|lias 'de|
|00000810| 63 6f 64 65 2d 63 6f 64 | 69 6e 67 2d 73 74 72 69 |code-cod|ing-stri|
|00000820| 6e 67 20 23 5b 28 73 74 | 72 20 63 6f 64 69 6e 67 |ng #[(st|r coding|
|00000830| 2d 73 79 73 74 65 6d 29 | 20 22 08 47 c1 1a 1b 1b |-system)| ".G....|
|00000840| c4 0b 57 ab 93 c5 08 c4 | 0b 4f 1b 0e 06 1b 0e 07 |..W.....|.O......|
|00000850| 23 89 12 ac 85 0b 53 13 | aa 68 5c 6e 08 0b c1 4f |#.....S.|.h\n...O|
|00000860| 50 2a 87 22 20 5b 73 74 | 72 20 6e 69 6c 20 72 65 |P*." [st|r nil re|
|00000870| 74 20 6c 65 6e 20 30 20 | 63 6f 64 65 2d 63 6f 6e |t len 0 |code-con|
|00000880| 76 65 72 74 2d 73 74 72 | 69 6e 67 20 63 6f 64 69 |vert-str|ing codi|
|00000890| 6e 67 2d 73 79 73 74 65 | 6d 20 2a 69 6e 74 65 72 |ng-syste|m *inter|
|000008a0| 6e 61 6c 2a 5d 20 34 20 | 22 5c 0a 44 65 63 6f 64 |nal*] 4 |"\.Decod|
|000008b0| 65 20 74 68 65 20 73 74 | 72 69 6e 67 20 53 54 52 |e the st|ring STR|
|000008c0| 20 77 68 69 63 68 20 69 | 73 20 65 6e 63 6f 64 65 | which i|s encode|
|000008d0| 64 20 69 6e 20 43 4f 44 | 49 4e 47 2d 53 59 53 54 |d in COD|ING-SYST|
|000008e0| 45 4d 2e 0a 5b 45 4d 41 | 43 53 20 32 30 20 65 6d |EM..[EMA|CS 20 em|
|000008f0| 75 6c 61 74 69 6e 67 20 | 66 75 6e 63 74 69 6f 6e |ulating |function|
|00000900| 5d 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |]"]).(by|te-code |
|00000910| 22 c0 c1 c2 5c 22 88 c0 | c3 c4 5c 22 87 22 20 5b |"...\"..|..\"." [|
|00000920| 64 65 66 61 6c 69 61 73 | 20 64 65 74 65 63 74 2d |defalias| detect-|
|00000930| 63 6f 64 69 6e 67 2d 72 | 65 67 69 6f 6e 20 63 6f |coding-r|egion co|
|00000940| 64 65 2d 64 65 74 65 63 | 74 2d 72 65 67 69 6f 6e |de-detec|t-region|
|00000950| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 66 69 6c 65 | set-buf|fer-file|
|00000960| 2d 63 6f 64 69 6e 67 2d | 73 79 73 74 65 6d 20 73 |-coding-|system s|
|00000970| 65 74 2d 66 69 6c 65 2d | 63 6f 64 69 6e 67 2d 73 |et-file-|coding-s|
|00000980| 79 73 74 65 6d 5d 20 33 | 29 0a 28 64 65 66 61 6c |ystem] 3|).(defal|
|00000990| 69 61 73 20 27 61 73 2d | 62 69 6e 61 72 79 2d 70 |ias 'as-|binary-p|
|000009a0| 72 6f 63 65 73 73 20 27 | 28 6d 61 63 72 6f 20 2e |rocess '|(macro .|
|000009b0| 20 23 5b 28 26 72 65 73 | 74 20 62 6f 64 79 29 20 | #[(&res|t body) |
|000009c0| 22 c0 c1 5c 6e 42 42 87 | 22 20 5b 6c 65 74 20 28 |"..\nBB.|" [let (|
|000009d0| 73 65 6c 65 63 74 69 76 | 65 2d 64 69 73 70 6c 61 |selectiv|e-displa|
|000009e0| 79 20 6d 63 2d 66 6c 61 | 67 20 28 64 65 66 61 75 |y mc-fla|g (defau|
|000009f0| 6c 74 2d 70 72 6f 63 65 | 73 73 2d 63 6f 64 69 6e |lt-proce|ss-codin|
|00000a00| 67 2d 73 79 73 74 65 6d | 20 28 63 6f 6e 73 20 2a |g-system| (cons *|
|00000a10| 6e 6f 63 6f 6e 76 2a 20 | 2a 6e 6f 63 6f 6e 76 2a |noconv* |*noconv*|
|00000a20| 29 29 20 70 72 6f 67 72 | 61 6d 2d 63 6f 64 69 6e |)) progr|am-codin|
|00000a30| 67 2d 73 79 73 74 65 6d | 2d 61 6c 69 73 74 29 20 |g-system|-alist) |
|00000a40| 62 6f 64 79 5d 20 33 5d | 29 29 0a 28 64 65 66 61 |body] 3]|)).(defa|
|00000a50| 6c 69 61 73 20 27 61 73 | 2d 62 69 6e 61 72 79 2d |lias 'as|-binary-|
|00000a60| 69 6e 70 75 74 2d 66 69 | 6c 65 20 27 28 6d 61 63 |input-fi|le '(mac|
|00000a70| 72 6f 20 2e 20 23 5b 28 | 26 72 65 73 74 20 62 6f |ro . #[(|&rest bo|
|00000a80| 64 79 29 20 22 c0 c1 5c | 6e 42 42 87 22 20 5b 6c |dy) "..\|nBB." [l|
|00000a90| 65 74 20 28 6d 63 2d 66 | 6c 61 67 20 28 66 69 6c |et (mc-f|lag (fil|
|00000aa0| 65 2d 63 6f 64 69 6e 67 | 2d 73 79 73 74 65 6d 2d |e-coding|-system-|
|00000ab0| 66 6f 72 2d 72 65 61 64 | 20 2a 6e 6f 63 6f 6e 76 |for-read| *noconv|
|00000ac0| 2a 29 29 20 62 6f 64 79 | 5d 20 33 5d 29 29 0a 28 |*)) body|] 3])).(|
|00000ad0| 64 65 66 61 6c 69 61 73 | 20 27 61 73 2d 62 69 6e |defalias| 'as-bin|
|00000ae0| 61 72 79 2d 6f 75 74 70 | 75 74 2d 66 69 6c 65 20 |ary-outp|ut-file |
|00000af0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 26 72 65 |'(macro |. #[(&re|
|00000b00| 73 74 20 62 6f 64 79 29 | 20 22 c0 c1 5c 6e 42 42 |st body)| "..\nBB|
|00000b10| 87 22 20 5b 6c 65 74 20 | 28 6d 63 2d 66 6c 61 67 |." [let |(mc-flag|
|00000b20| 20 28 66 69 6c 65 2d 63 | 6f 64 69 6e 67 2d 73 79 | (file-c|oding-sy|
|00000b30| 73 74 65 6d 20 2a 6e 6f | 63 6f 6e 76 2a 29 29 20 |stem *no|conv*)) |
|00000b40| 62 6f 64 79 5d 20 33 5d | 29 29 0a 28 64 65 66 61 |body] 3]|)).(defa|
|00000b50| 6c 69 61 73 20 27 73 65 | 74 2d 70 72 6f 63 65 73 |lias 'se|t-proces|
|00000b60| 73 2d 69 6e 70 75 74 2d | 63 6f 64 69 6e 67 2d 73 |s-input-|coding-s|
|00000b70| 79 73 74 65 6d 20 27 73 | 65 74 2d 70 72 6f 63 65 |ystem 's|et-proce|
|00000b80| 73 73 2d 63 6f 64 69 6e | 67 2d 73 79 73 74 65 6d |ss-codin|g-system|
|00000b90| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 6e 73 |).(defal|ias 'ins|
|00000ba0| 65 72 74 2d 62 69 6e 61 | 72 79 2d 66 69 6c 65 2d |ert-bina|ry-file-|
|00000bb0| 63 6f 6e 74 65 6e 74 73 | 2d 6c 69 74 65 72 61 6c |contents|-literal|
|00000bc0| 6c 79 20 23 5b 28 66 69 | 6c 65 6e 61 6d 65 20 26 |ly #[(fi|lename &|
|00000bd0| 6f 70 74 69 6f 6e 61 6c | 20 76 69 73 69 74 20 62 |optional| visit b|
|00000be0| 65 67 20 65 6e 64 20 72 | 65 70 6c 61 63 65 29 20 |eg end r|eplace) |
|00000bf0| 22 c0 09 1a 1b 1b c4 0d | 1b 0e 06 1b 0e 07 1b 0e |".......|........|
|00000c00| 08 1b 0e 09 25 2a 87 22 | 20 5b 6e 69 6c 20 2a 6e |....%*."| [nil *n|
|00000c10| 6f 63 6f 6e 76 2a 20 66 | 69 6c 65 2d 63 6f 64 69 |oconv* f|ile-codi|
|00000c20| 6e 67 2d 73 79 73 74 65 | 6d 20 6d 63 2d 66 6c 61 |ng-syste|m mc-fla|
|00000c30| 67 20 69 6e 73 65 72 74 | 2d 66 69 6c 65 2d 63 6f |g insert|-file-co|
|00000c40| 6e 74 65 6e 74 73 2d 6c | 69 74 65 72 61 6c 6c 79 |ntents-l|iterally|
|00000c50| 20 66 69 6c 65 6e 61 6d | 65 20 76 69 73 69 74 20 | filenam|e visit |
|00000c60| 62 65 67 20 65 6e 64 20 | 72 65 70 6c 61 63 65 5d |beg end |replace]|
|00000c70| 20 36 20 22 5c 0a 4c 69 | 6b 65 20 60 69 6e 73 65 | 6 "\.Li|ke `inse|
|00000c80| 72 74 2d 66 69 6c 65 2d | 63 6f 6e 74 65 6e 74 73 |rt-file-|contents|
|00000c90| 2d 6c 69 74 65 72 61 6c | 6c 79 27 2c 20 71 2e 76 |-literal|ly', q.v|
|00000ca0| 2e 2c 20 62 75 74 20 64 | 6f 6e 27 74 20 63 6f 64 |., but d|on't cod|
|00000cb0| 65 20 63 6f 6e 76 65 72 | 73 69 6f 6e 2e 0a 41 20 |e conver|sion..A |
|00000cc0| 62 75 66 66 65 72 20 6d | 61 79 20 62 65 20 6d 6f |buffer m|ay be mo|
|00000cd0| 64 69 66 69 65 64 20 69 | 6e 20 73 65 76 65 72 61 |dified i|n severa|
|00000ce0| 6c 20 77 61 79 73 20 61 | 66 74 65 72 20 72 65 61 |l ways a|fter rea|
|00000cf0| 64 69 6e 67 20 69 6e 74 | 6f 20 74 68 65 20 62 75 |ding int|o the bu|
|00000d00| 66 66 65 72 20 64 75 65 | 0a 74 6f 20 61 64 76 61 |ffer due|.to adva|
|00000d10| 6e 63 65 64 20 45 6d 61 | 63 73 20 66 65 61 74 75 |nced Ema|cs featu|
|00000d20| 72 65 73 2c 20 73 75 63 | 68 20 61 73 20 66 69 6c |res, suc|h as fil|
|00000d30| 65 2d 6e 61 6d 65 2d 68 | 61 6e 64 6c 65 72 73 2c |e-name-h|andlers,|
|00000d40| 20 66 6f 72 6d 61 74 20 | 64 65 63 6f 64 69 6e 67 | format |decoding|
|00000d50| 2c 0a 66 69 6e 64 2d 66 | 69 6c 65 2d 68 6f 6f 6b |,.find-f|ile-hook|
|00000d60| 73 2c 20 65 74 63 2e 0a | 20 20 54 68 69 73 20 66 |s, etc..|  This f|
|00000d70| 75 6e 63 74 69 6f 6e 20 | 65 6e 73 75 72 65 73 20 |unction |ensures |
|00000d80| 74 68 61 74 20 6e 6f 6e | 65 20 6f 66 20 74 68 65 |that non|e of the|
|00000d90| 73 65 20 6d 6f 64 69 66 | 69 63 61 74 69 6f 6e 73 |se modif|ications|
|00000da0| 20 77 69 6c 6c 20 74 61 | 6b 65 20 70 6c 61 63 65 | will ta|ke place|
|00000db0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00000dc0| 65 6e 63 6f 64 65 2d 6d | 69 6d 65 2d 63 68 61 72 |encode-m|ime-char|
|00000dd0| 73 65 74 2d 72 65 67 69 | 6f 6e 20 23 5b 28 73 74 |set-regi|on #[(st|
|00000de0| 61 72 74 20 65 6e 64 20 | 63 68 61 72 73 65 74 29 |art end |charset)|
|00000df0| 20 22 c0 09 21 89 1a ad | 87 c3 0c 0d 1b 0e 06 5c | "..!...|.......\|
|00000e00| 6e 24 29 87 22 20 5b 6d | 69 6d 65 2d 63 68 61 72 |n$)." [m|ime-char|
|00000e10| 73 65 74 2d 74 6f 2d 63 | 6f 64 69 6e 67 2d 73 79 |set-to-c|oding-sy|
|00000e20| 73 74 65 6d 20 63 68 61 | 72 73 65 74 20 63 73 20 |stem cha|rset cs |
|00000e30| 63 6f 64 65 2d 63 6f 6e | 76 65 72 74 20 73 74 61 |code-con|vert sta|
|00000e40| 72 74 20 65 6e 64 20 2a | 69 6e 74 65 72 6e 61 6c |rt end *|internal|
|00000e50| 2a 5d 20 36 20 22 5c 0a | 45 6e 63 6f 64 65 20 74 |*] 6 "\.|Encode t|
|00000e60| 68 65 20 74 65 78 74 20 | 62 65 74 77 65 65 6e 20 |he text |between |
|00000e70| 53 54 41 52 54 20 61 6e | 64 20 45 4e 44 20 61 73 |START an|d END as|
|00000e80| 20 4d 49 4d 45 20 43 48 | 41 52 53 45 54 2e 22 5d | MIME CH|ARSET."]|
|00000e90| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 65 63 |).(defal|ias 'dec|
|00000ea0| 6f 64 65 2d 6d 69 6d 65 | 2d 63 68 61 72 73 65 74 |ode-mime|-charset|
|00000eb0| 2d 72 65 67 69 6f 6e 20 | 23 5b 28 73 74 61 72 74 |-region |#[(start|
|00000ec0| 20 65 6e 64 20 63 68 61 | 72 73 65 74 29 20 22 c0 | end cha|rset) ".|
|00000ed0| 09 21 89 1a ad 87 c3 0c | 0d 5c 6e 1b 0e 06 24 29 |.!......|.\n...$)|
|00000ee0| 87 22 20 5b 6d 69 6d 65 | 2d 63 68 61 72 73 65 74 |." [mime|-charset|
|00000ef0| 2d 74 6f 2d 63 6f 64 69 | 6e 67 2d 73 79 73 74 65 |-to-codi|ng-syste|
|00000f00| 6d 20 63 68 61 72 73 65 | 74 20 63 73 20 63 6f 64 |m charse|t cs cod|
|00000f10| 65 2d 63 6f 6e 76 65 72 | 74 20 73 74 61 72 74 20 |e-conver|t start |
|00000f20| 65 6e 64 20 2a 69 6e 74 | 65 72 6e 61 6c 2a 5d 20 |end *int|ernal*] |
|00000f30| 36 20 22 5c 0a 44 65 63 | 6f 64 65 20 74 68 65 20 |6 "\.Dec|ode the |
|00000f40| 74 65 78 74 20 62 65 74 | 77 65 65 6e 20 53 54 41 |text bet|ween STA|
|00000f50| 52 54 20 61 6e 64 20 45 | 4e 44 20 61 73 20 4d 49 |RT and E|ND as MI|
|00000f60| 4d 45 20 43 48 41 52 53 | 45 54 2e 22 5d 29 0a 28 |ME CHARS|ET."]).(|
|00000f70| 64 65 66 61 6c 69 61 73 | 20 27 65 6e 63 6f 64 65 |defalias| 'encode|
|00000f80| 2d 6d 69 6d 65 2d 63 68 | 61 72 73 65 74 2d 73 74 |-mime-ch|arset-st|
|00000f90| 72 69 6e 67 20 23 5b 28 | 73 74 72 69 6e 67 20 63 |ring #[(|string c|
|00000fa0| 68 61 72 73 65 74 29 20 | 22 c0 09 21 89 1a ab 87 |harset) |"..!....|
|00000fb0| c3 0c 0d 5c 6e 23 aa 81 | 0c 29 87 22 20 5b 6d 69 |...\n#..|.)." [mi|
|00000fc0| 6d 65 2d 63 68 61 72 73 | 65 74 2d 74 6f 2d 63 6f |me-chars|et-to-co|
|00000fd0| 64 69 6e 67 2d 73 79 73 | 74 65 6d 20 63 68 61 72 |ding-sys|tem char|
|00000fe0| 73 65 74 20 63 73 20 63 | 6f 64 65 2d 63 6f 6e 76 |set cs c|ode-conv|
|00000ff0| 65 72 74 2d 73 74 72 69 | 6e 67 20 73 74 72 69 6e |ert-stri|ng strin|
|00001000| 67 20 2a 69 6e 74 65 72 | 6e 61 6c 2a 5d 20 35 20 |g *inter|nal*] 5 |
|00001010| 22 5c 0a 45 6e 63 6f 64 | 65 20 74 68 65 20 53 54 |"\.Encod|e the ST|
|00001020| 52 49 4e 47 20 61 73 20 | 4d 49 4d 45 20 43 48 41 |RING as |MIME CHA|
|00001030| 52 53 45 54 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |RSET."])|.(defali|
|00001040| 61 73 20 27 64 65 63 6f | 64 65 2d 6d 69 6d 65 2d |as 'deco|de-mime-|
|00001050| 63 68 61 72 73 65 74 2d | 73 74 72 69 6e 67 20 23 |charset-|string #|
|00001060| 5b 28 73 74 72 69 6e 67 | 20 63 68 61 72 73 65 74 |[(string| charset|
|00001070| 29 20 22 c0 09 21 89 1a | ab 86 c3 0c 5c 6e 5c 22 |) "..!..|....\n\"|
|00001080| aa 81 0c 29 87 22 20 5b | 6d 69 6d 65 2d 63 68 61 |...)." [|mime-cha|
|00001090| 72 73 65 74 2d 74 6f 2d | 63 6f 64 69 6e 67 2d 73 |rset-to-|coding-s|
|000010a0| 79 73 74 65 6d 20 63 68 | 61 72 73 65 74 20 63 73 |ystem ch|arset cs|
|000010b0| 20 64 65 63 6f 64 65 2d | 63 6f 64 69 6e 67 2d 73 | decode-|coding-s|
|000010c0| 74 72 69 6e 67 20 73 74 | 72 69 6e 67 5d 20 34 20 |tring st|ring] 4 |
|000010d0| 22 5c 0a 44 65 63 6f 64 | 65 20 74 68 65 20 53 54 |"\.Decod|e the ST|
|000010e0| 52 49 4e 47 20 77 68 69 | 63 68 20 69 73 20 65 6e |RING whi|ch is en|
|000010f0| 63 6f 64 65 64 20 69 6e | 20 4d 49 4d 45 20 43 48 |coded in| MIME CH|
|00001100| 41 52 53 45 54 2e 22 5d | 29 0a 28 62 79 74 65 2d |ARSET."]|).(byte-|
|00001110| 63 6f 64 65 20 22 c0 c1 | 21 ac 82 c2 11 c1 0b 42 |code "..|!......B|
|00001120| 13 c0 87 22 20 5b 62 6f | 75 6e 64 70 20 6d 69 6d |..." [bo|undp mim|
|00001130| 65 2d 63 68 61 72 73 65 | 74 2d 63 6f 64 69 6e 67 |e-charse|t-coding|
|00001140| 2d 73 79 73 74 65 6d 2d | 61 6c 69 73 74 20 28 28 |-system-|alist ((|
|00001150| 69 73 6f 2d 38 38 35 39 | 2d 31 20 2e 20 2a 63 74 |iso-8859|-1 . *ct|
|00001160| 65 78 74 2a 29 20 28 78 | 2d 63 74 65 78 74 20 2e |ext*) (x|-ctext .|
|00001170| 20 2a 63 74 65 78 74 2a | 29 20 28 67 62 32 33 31 | *ctext*|) (gb231|
|00001180| 32 20 2e 20 2a 65 75 63 | 2d 63 68 69 6e 61 2a 29 |2 . *euc|-china*)|
|00001190| 20 28 6b 6f 69 38 2d 72 | 20 2e 20 2a 6b 6f 69 38 | (koi8-r| . *koi8|
|000011a0| 2a 29 20 28 69 73 6f 2d | 32 30 32 32 2d 6a 70 2d |*) (iso-|2022-jp-|
|000011b0| 32 20 2e 20 2a 69 73 6f | 2d 32 30 32 32 2d 73 73 |2 . *iso|-2022-ss|
|000011c0| 32 2d 37 2a 29 20 28 78 | 2d 69 73 6f 2d 32 30 32 |2-7*) (x|-iso-202|
|000011d0| 32 2d 6a 70 2d 32 20 2e | 20 2a 69 73 6f 2d 32 30 |2-jp-2 .| *iso-20|
|000011e0| 32 32 2d 73 73 32 2d 37 | 2a 29 20 28 73 68 69 66 |22-ss2-7|*) (shif|
|000011f0| 74 5f 6a 69 73 20 2e 20 | 2a 73 6a 69 73 2a 29 20 |t_jis . |*sjis*) |
|00001200| 28 78 2d 73 68 69 66 74 | 6a 69 73 20 2e 20 2a 73 |(x-shift|jis . *s|
|00001210| 6a 69 73 2a 29 29 20 63 | 75 72 72 65 6e 74 2d 6c |jis*)) c|urrent-l|
|00001220| 6f 61 64 2d 6c 69 73 74 | 5d 20 32 29 0a 28 64 65 |oad-list|] 2).(de|
|00001230| 66 61 6c 69 61 73 20 27 | 6d 69 6d 65 2d 63 68 61 |falias '|mime-cha|
|00001240| 72 73 65 74 2d 74 6f 2d | 63 6f 64 69 6e 67 2d 73 |rset-to-|coding-s|
|00001250| 79 73 74 65 6d 20 23 5b | 28 63 68 61 72 73 65 74 |ystem #[|(charset|
|00001260| 20 26 6f 70 74 69 6f 6e | 61 6c 20 6c 62 74 29 20 | &option|al lbt) |
|00001270| 22 08 3b ab 85 c1 08 97 | 21 10 08 5c 6e b7 41 ae |".;.....|!..\n.A.|
|00001280| 90 c1 c3 c4 08 21 c3 51 | 21 1d c6 0d 21 ad 81 0d |.....!.Q|!...!...|
|00001290| 29 1d 1b 0e 07 ab 83 0d | ac 83 0d aa 8a c1 c4 0d |).......|........|
|000012a0| 21 c4 1b 0e 07 21 50 21 | 29 87 22 20 5b 63 68 61 |!....!P!|)." [cha|
|000012b0| 72 73 65 74 20 69 6e 74 | 65 72 6e 20 6d 69 6d 65 |rset int|ern mime|
|000012c0| 2d 63 68 61 72 73 65 74 | 2d 63 6f 64 69 6e 67 2d |-charset|-coding-|
|000012d0| 73 79 73 74 65 6d 2d 61 | 6c 69 73 74 20 22 2a 22 |system-a|list "*"|
|000012e0| 20 73 79 6d 62 6f 6c 2d | 6e 61 6d 65 20 63 73 20 | symbol-|name cs |
|000012f0| 63 6f 64 69 6e 67 2d 73 | 79 73 74 65 6d 2d 70 20 |coding-s|ystem-p |
|00001300| 6c 62 74 5d 20 34 5d 29 | 0a 28 62 79 74 65 2d 63 |lbt] 4])|.(byte-c|
|00001310| 6f 64 65 20 22 c0 c1 21 | ac 94 c2 c3 1c 89 1d ad |ode "..!|........|
|00001320| 8b c6 c7 8d 88 0d 41 89 | 15 ac 76 c3 2a 11 c1 1b |......A.|..v.*...|
|00001330| 0e 08 42 16 08 c3 87 22 | 20 5b 62 6f 75 6e 64 70 |..B...."| [boundp|
|00001340| 20 63 68 61 72 73 65 74 | 73 2d 6d 69 6d 65 2d 63 | charset|s-mime-c|
|00001350| 68 61 72 73 65 74 2d 61 | 6c 69 73 74 20 28 28 28 |harset-a|list (((|
|00001360| 6c 63 2d 61 73 63 69 69 | 29 20 71 75 6f 74 65 20 |lc-ascii|) quote |
|00001370| 75 73 2d 61 73 63 69 69 | 29 20 28 28 6c 63 2d 61 |us-ascii|) ((lc-a|
|00001380| 73 63 69 69 20 6c 63 2d | 6c 74 6e 31 29 20 71 75 |scii lc-|ltn1) qu|
|00001390| 6f 74 65 20 69 73 6f 2d | 38 38 35 39 2d 31 29 20 |ote iso-|8859-1) |
|000013a0| 28 28 6c 63 2d 61 73 63 | 69 69 20 6c 63 2d 6c 74 |((lc-asc|ii lc-lt|
|000013b0| 6e 32 29 20 71 75 6f 74 | 65 20 69 73 6f 2d 38 38 |n2) quot|e iso-88|
|000013c0| 35 39 2d 32 29 20 28 28 | 6c 63 2d 61 73 63 69 69 |59-2) ((|lc-ascii|
|000013d0| 20 6c 63 2d 6c 74 6e 33 | 29 20 71 75 6f 74 65 20 | lc-ltn3|) quote |
|000013e0| 69 73 6f 2d 38 38 35 39 | 2d 33 29 20 28 28 6c 63 |iso-8859|-3) ((lc|
|000013f0| 2d 61 73 63 69 69 20 6c | 63 2d 6c 74 6e 34 29 20 |-ascii l|c-ltn4) |
|00001400| 71 75 6f 74 65 20 69 73 | 6f 2d 38 38 35 39 2d 34 |quote is|o-8859-4|
|00001410| 29 20 28 28 6c 63 2d 61 | 73 63 69 69 20 6c 63 2d |) ((lc-a|scii lc-|
|00001420| 63 72 6c 29 20 71 75 6f | 74 65 20 6b 6f 69 38 2d |crl) quo|te koi8-|
|00001430| 72 29 20 28 28 6c 63 2d | 61 73 63 69 69 20 6c 63 |r) ((lc-|ascii lc|
|00001440| 2d 61 72 62 29 20 71 75 | 6f 74 65 20 69 73 6f 2d |-arb) qu|ote iso-|
|00001450| 38 38 35 39 2d 36 29 20 | 28 28 6c 63 2d 61 73 63 |8859-6) |((lc-asc|
|00001460| 69 69 20 6c 63 2d 67 72 | 6b 29 20 71 75 6f 74 65 |ii lc-gr|k) quote|
|00001470| 20 69 73 6f 2d 38 38 35 | 39 2d 37 29 20 28 28 6c | iso-885|9-7) ((l|
|00001480| 63 2d 61 73 63 69 69 20 | 6c 63 2d 68 62 77 29 20 |c-ascii |lc-hbw) |
|00001490| 71 75 6f 74 65 20 69 73 | 6f 2d 38 38 35 39 2d 38 |quote is|o-8859-8|
|000014a0| 29 20 28 28 6c 63 2d 61 | 73 63 69 69 20 6c 63 2d |) ((lc-a|scii lc-|
|000014b0| 6c 74 6e 35 29 20 71 75 | 6f 74 65 20 69 73 6f 2d |ltn5) qu|ote iso-|
|000014c0| 38 38 35 39 2d 39 29 20 | 28 28 6c 63 2d 61 73 63 |8859-9) |((lc-asc|
|000014d0| 69 69 20 6c 63 2d 72 6f | 6d 61 6e 20 6c 63 2d 6a |ii lc-ro|man lc-j|
|000014e0| 70 6f 6c 64 20 6c 63 2d | 6a 70 29 20 71 75 6f 74 |pold lc-|jp) quot|
|000014f0| 65 20 69 73 6f 2d 32 30 | 32 32 2d 6a 70 29 20 28 |e iso-20|22-jp) (|
|00001500| 28 6c 63 2d 61 73 63 69 | 69 20 6c 63 2d 6b 72 29 |(lc-asci|i lc-kr)|
|00001510| 20 71 75 6f 74 65 20 65 | 75 63 2d 6b 72 29 20 28 | quote e|uc-kr) (|
|00001520| 28 6c 63 2d 61 73 63 69 | 69 20 6c 63 2d 63 6e 29 |(lc-asci|i lc-cn)|
|00001530| 20 71 75 6f 74 65 20 67 | 62 32 33 31 32 29 20 28 | quote g|b2312) (|
|00001540| 28 6c 63 2d 61 73 63 69 | 69 20 6c 63 2d 62 69 67 |(lc-asci|i lc-big|
|00001550| 35 2d 31 20 6c 63 2d 62 | 69 67 35 2d 32 29 20 71 |5-1 lc-b|ig5-2) q|
|00001560| 75 6f 74 65 20 62 69 67 | 35 29 20 28 28 6c 63 2d |uote big|5) ((lc-|
|00001570| 61 73 63 69 69 20 6c 63 | 2d 72 6f 6d 61 6e 20 6c |ascii lc|-roman l|
|00001580| 63 2d 6c 74 6e 31 20 6c | 63 2d 67 72 6b 20 6c 63 |c-ltn1 l|c-grk lc|
|00001590| 2d 6a 70 6f 6c 64 20 6c | 63 2d 63 6e 20 6c 63 2d |-jpold l|c-cn lc-|
|000015a0| 6a 70 20 6c 63 2d 6b 72 | 20 6c 63 2d 6a 70 32 29 |jp lc-kr| lc-jp2)|
|000015b0| 20 71 75 6f 74 65 20 69 | 73 6f 2d 32 30 32 32 2d | quote i|so-2022-|
|000015c0| 6a 70 2d 32 29 20 28 28 | 6c 63 2d 61 73 63 69 69 |jp-2) ((|lc-ascii|
|000015d0| 20 6c 63 2d 72 6f 6d 61 | 6e 20 6c 63 2d 6c 74 6e | lc-roma|n lc-ltn|
|000015e0| 31 20 6c 63 2d 67 72 6b | 20 6c 63 2d 6a 70 6f 6c |1 lc-grk| lc-jpol|
|000015f0| 64 20 6c 63 2d 63 6e 20 | 6c 63 2d 6a 70 20 6c 63 |d lc-cn |lc-jp lc|
|00001600| 2d 6b 72 20 6c 63 2d 6a | 70 32 20 6c 63 2d 63 6e |-kr lc-j|p2 lc-cn|
|00001610| 73 31 20 6c 63 2d 63 6e | 73 32 29 20 71 75 6f 74 |s1 lc-cn|s2) quot|
|00001620| 65 20 69 73 6f 2d 32 30 | 32 32 2d 69 6e 74 2d 31 |e iso-20|22-int-1|
|00001630| 29 20 28 28 6c 63 2d 61 | 73 63 69 69 20 6c 63 2d |) ((lc-a|scii lc-|
|00001640| 72 6f 6d 61 6e 20 6c 63 | 2d 6c 74 6e 31 20 6c 63 |roman lc|-ltn1 lc|
|00001650| 2d 6c 74 6e 32 20 6c 63 | 2d 63 72 6c 20 6c 63 2d |-ltn2 lc|-crl lc-|
|00001660| 67 72 6b 20 6c 63 2d 6a | 70 6f 6c 64 20 6c 63 2d |grk lc-j|pold lc-|
|00001670| 63 6e 20 6c 63 2d 6a 70 | 20 6c 63 2d 6b 72 20 6c |cn lc-jp| lc-kr l|
|00001680| 63 2d 6a 70 32 20 6c 63 | 2d 63 6e 73 31 20 6c 63 |c-jp2 lc|-cns1 lc|
|00001690| 2d 63 6e 73 32 20 6c 63 | 2d 63 6e 73 33 20 6c 63 |-cns2 lc|-cns3 lc|
|000016a0| 2d 63 6e 73 34 20 6c 63 | 2d 63 6e 73 35 20 6c 63 |-cns4 lc|-cns5 lc|
|000016b0| 2d 63 6e 73 36 20 6c 63 | 2d 63 6e 73 37 29 20 71 |-cns6 lc|-cns7) q|
|000016c0| 75 6f 74 65 20 69 73 6f | 2d 32 30 32 32 2d 69 6e |uote iso|-2022-in|
|000016d0| 74 2d 31 29 29 20 6e 69 | 6c 20 64 65 73 74 20 61 |t-1)) ni|l dest a|
|000016e0| 6c 69 73 74 20 6e 6f 74 | 2d 66 6f 75 6e 64 20 28 |list not|-found (|
|000016f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 40 19 c2 c3 |byte-cod|e ".@...|
|00001700| 09 40 5c 22 09 41 42 14 | 29 c2 87 22 20 5b 61 6c |.@\".AB.|).." [al|
|00001710| 69 73 74 20 70 61 69 72 | 20 6d 61 70 63 61 72 20 |ist pair| mapcar |
|00001720| 23 5b 28 63 73 29 20 22 | c0 09 21 ab 83 09 4a 87 |#[(cs) "|..!...J.|
|00001730| c2 c3 c4 5c 22 87 22 20 | 5b 62 6f 75 6e 64 70 20 |...\"." |[boundp |
|00001740| 63 73 20 74 68 72 6f 77 | 20 6e 6f 74 2d 66 6f 75 |cs throw| not-fou|
|00001750| 6e 64 20 6e 69 6c 5d 20 | 33 5d 20 64 65 73 74 5d |nd nil] |3] dest]|
|00001760| 20 33 29 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 | 3) curr|ent-load|
|00001770| 2d 6c 69 73 74 5d 20 33 | 29 0a 28 64 65 66 76 61 |-list] 3|).(defva|
|00001780| 72 20 64 65 66 61 75 6c | 74 2d 6d 69 6d 65 2d 63 |r defaul|t-mime-c|
|00001790| 68 61 72 73 65 74 20 27 | 78 2d 63 74 65 78 74 20 |harset '|x-ctext |
|000017a0| 22 5c 0a 44 65 66 61 75 | 6c 74 20 76 61 6c 75 65 |"\.Defau|lt value|
|000017b0| 20 6f 66 20 4d 49 4d 45 | 2d 63 68 61 72 73 65 74 | of MIME|-charset|
|000017c0| 2e 0a 49 74 20 69 73 20 | 75 73 65 64 20 77 68 65 |..It is |used whe|
|000017d0| 6e 20 4d 49 4d 45 2d 63 | 68 61 72 73 65 74 20 69 |n MIME-c|harset i|
|000017e0| 73 20 6e 6f 74 20 73 70 | 65 63 69 66 69 65 64 2e |s not sp|ecified.|
|000017f0| 0a 49 74 20 6d 75 73 74 | 20 62 65 20 73 79 6d 62 |.It must| be symb|
|00001800| 6f 6c 2e 22 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |ol.").(d|efalias |
|00001810| 27 64 65 74 65 63 74 2d | 6d 69 6d 65 2d 63 68 61 |'detect-|mime-cha|
|00001820| 72 73 65 74 2d 72 65 67 | 69 6f 6e 20 23 5b 28 73 |rset-reg|ion #[(s|
|00001830| 74 61 72 74 20 65 6e 64 | 29 20 22 c0 09 c2 0b 0c |tart end|) ".....|
|00001840| 5c 22 42 21 87 22 20 5b | 63 68 61 72 73 65 74 73 |\"B!." [|charsets|
|00001850| 2d 74 6f 2d 6d 69 6d 65 | 2d 63 68 61 72 73 65 74 |-to-mime|-charset|
|00001860| 20 6c 63 2d 61 73 63 69 | 69 20 66 69 6e 64 2d 63 | lc-asci|i find-c|
|00001870| 68 61 72 73 65 74 2d 72 | 65 67 69 6f 6e 20 73 74 |harset-r|egion st|
|00001880| 61 72 74 20 65 6e 64 5d | 20 35 20 22 5c 0a 52 65 |art end]| 5 "\.Re|
|00001890| 74 75 72 6e 20 4d 49 4d | 45 20 63 68 61 72 73 65 |turn MIM|E charse|
|000018a0| 74 20 66 6f 72 20 72 65 | 67 69 6f 6e 20 62 65 74 |t for re|gion bet|
|000018b0| 77 65 65 6e 20 53 54 41 | 52 54 20 61 6e 64 20 45 |ween STA|RT and E|
|000018c0| 4e 44 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ND."]).(|byte-cod|
|000018d0| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 88 c0 |e "...\"|....\"..|
|000018e0| c5 c6 5c 22 88 c0 c7 c8 | 5c 22 88 c0 c9 ca 5c 22 |..\"....|\"....\"|
|000018f0| 88 cb cc 21 ac 84 cc cd | 4d 88 c0 87 22 20 5b 64 |...!....|M..." [d|
|00001900| 65 66 61 6c 69 61 73 20 | 63 68 61 72 2d 63 68 61 |efalias |char-cha|
|00001910| 72 73 65 74 20 63 68 61 | 72 2d 6c 65 61 64 69 6e |rset cha|r-leadin|
|00001920| 67 2d 63 68 61 72 20 63 | 68 61 72 2d 6c 65 6e 67 |g-char c|har-leng|
|00001930| 74 68 20 63 68 61 72 2d | 62 79 74 65 73 20 63 68 |th char-|bytes ch|
|00001940| 61 72 2d 63 6f 6c 75 6d | 6e 73 20 63 68 61 72 2d |ar-colum|ns char-|
|00001950| 77 69 64 74 68 20 73 74 | 72 69 6e 67 2d 63 6f 6c |width st|ring-col|
|00001960| 75 6d 6e 73 20 73 74 72 | 69 6e 67 2d 77 69 64 74 |umns str|ing-widt|
|00001970| 68 20 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 2d |h string|-to-int-|
|00001980| 6c 69 73 74 20 73 74 72 | 69 6e 67 2d 74 6f 2d 63 |list str|ing-to-c|
|00001990| 68 61 72 2d 6c 69 73 74 | 20 66 62 6f 75 6e 64 70 |har-list| fboundp|
|000019a0| 20 74 72 75 6e 63 61 74 | 65 2d 73 74 72 69 6e 67 | truncat|e-string|
|000019b0| 20 23 5b 28 73 74 72 20 | 77 69 64 74 68 20 26 6f | #[(str |width &o|
|000019c0| 70 74 69 6f 6e 61 6c 20 | 73 74 61 72 74 2d 63 6f |ptional |start-co|
|000019d0| 6c 75 6d 6e 29 20 22 08 | ac 82 c1 10 c2 0b 21 0b |lumn) ".|......!.|
|000019e0| 47 c1 89 c4 89 89 1d 1e | 06 1e 07 1e 08 1e 09 1e |G.......|........|
|000019f0| 5c 6e 1e 0b 1b 0e 0c 1b | 0e 0b 59 ab 84 1b 0e 0b |\n......|..Y.....|
|00001a00| 16 0c 08 1b 0e 0c 59 ab | 83 cd aa d4 1b 0e 08 08 |......Y.|........|
|00001a10| 57 ab 97 0b 1b 0e 09 48 | 15 1b 0e 08 ce 0d 21 5c |W......H|......!\|
|00001a20| 5c 16 08 1b 0e 09 cf 0d | 21 5c 5c 16 09 aa 63 1b |\.......|!\\...c.|
|00001a30| 0e 0c 1b 0e 0b 57 ab aa | 1b 0e 09 16 06 1b 0e 08 |.....W..|........|
|00001a40| 1b 0e 0c 58 ab 9b 0b 1b | 0e 06 48 15 1b 0e 08 ce |...X....|..H.....|
|00001a50| 0d 21 5c 5c 16 08 1b 0e | 06 16 07 1b 0e 06 cf 0d |.!\\....|........|
|00001a60| 21 5c 5c 16 06 aa 5e 1b | 0e 07 16 06 0b 1b 0e 09 |!\\...^.|........|
|00001a70| 1b 0e 06 4f 2e 07 87 22 | 20 5b 73 74 61 72 74 2d |...O..."| [start-|
|00001a80| 63 6f 6c 75 6d 6e 20 30 | 20 73 74 72 69 6e 67 2d |column 0| string-|
|00001a90| 77 69 64 74 68 20 73 74 | 72 20 6e 69 6c 20 63 68 |width st|r nil ch|
|00001aa0| 20 74 6f 20 74 6f 2d 70 | 72 65 76 20 63 6f 6c 75 | to to-p|rev colu|
|00001ab0| 6d 6e 20 66 72 6f 6d 20 | 6c 65 6e 20 6d 61 78 2d |mn from |len max-|
|00001ac0| 77 69 64 74 68 20 77 69 | 64 74 68 20 22 22 20 63 |width wi|dth "" c|
|00001ad0| 68 61 72 2d 77 69 64 74 | 68 20 63 68 61 72 2d 62 |har-widt|h char-b|
|00001ae0| 79 74 65 73 5d 20 37 20 | 22 54 72 75 6e 63 61 74 |ytes] 7 |"Truncat|
|00001af0| 65 20 53 54 52 20 74 6f | 20 66 69 74 20 69 6e 20 |e STR to| fit in |
|00001b00| 57 49 44 54 48 20 63 6f | 6c 75 6d 6e 73 2e 5c 6e |WIDTH co|lumns.\n|
|00001b10| 4f 70 74 69 6f 6e 61 6c | 20 6e 6f 6e 2d 6e 69 6c |Optional| non-nil|
|00001b20| 20 61 72 67 20 53 54 41 | 52 54 2d 43 4f 4c 55 4d | arg STA|RT-COLUM|
|00001b30| 4e 20 73 70 65 63 69 66 | 69 65 73 20 74 68 65 20 |N specif|ies the |
|00001b40| 73 74 61 72 74 69 6e 67 | 20 63 6f 6c 75 6d 6e 2e |starting| column.|
|00001b50| 5c 6e 5b 65 6d 75 2d 6d | 75 6c 65 2e 65 6c 3b 20 |\n[emu-m|ule.el; |
|00001b60| 4d 75 6c 65 20 32 2e 33 | 20 65 6d 75 6c 61 74 69 |Mule 2.3| emulati|
|00001b70| 6e 67 20 66 75 6e 63 74 | 69 6f 6e 5d 22 5d 5d 20 |ng funct|ion]"]] |
|00001b80| 33 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 65 |3).(defa|lias 're|
|00001b90| 67 75 6c 61 74 65 2d 6c | 61 74 69 6e 2d 63 68 61 |gulate-l|atin-cha|
|00001ba0| 72 20 23 5b 28 63 68 72 | 29 20 22 c0 09 58 ab 8b |r #[(chr|) "..X..|
|00001bb0| 09 c2 58 ab 86 09 c0 5a | c3 5c 5c 87 c4 09 58 ab |..X....Z|.\\...X.|
|00001bc0| 8b 09 c5 58 ab 86 09 c4 | 5a c6 5c 5c 87 09 c7 61 |...X....|Z.\\...a|
|00001bd0| ab 82 c8 87 09 c9 61 ab | 82 ca 87 09 87 22 20 5b |......a.|....." [|
|00001be0| 3f 1b 24 28 42 23 41 1b | 28 42 20 63 68 72 20 3f |?.$(B#A.|(B chr ?|
|00001bf0| 1b 24 28 42 23 5a 1b 28 | 42 20 3f 41 20 3f 1b 24 |.$(B#Z.(|B ?A ?.$|
|00001c00| 28 42 23 61 1b 28 42 20 | 3f 1b 24 28 42 23 7a 1b |(B#a.(B |?.$(B#z.|
|00001c10| 28 42 20 3f 61 20 3f 1b | 24 28 42 21 25 1b 28 42 |(B ?a ?.|$(B!%.(B|
|00001c20| 20 3f 5c 2e 20 3f 1b 24 | 28 42 21 24 1b 28 42 20 | ?\. ?.$|(B!$.(B |
|00001c30| 3f 5c 2c 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 |?\,] 2])|.(defali|
|00001c40| 61 73 20 27 72 65 67 75 | 6c 61 74 65 2d 6c 61 74 |as 'regu|late-lat|
|00001c50| 69 6e 2d 73 74 72 69 6e | 67 20 23 5b 28 73 74 72 |in-strin|g #[(str|
|00001c60| 29 20 22 08 47 c1 c2 c3 | 1c 1d 1e 06 1e 07 1b 0e |) ".G...|........|
|00001c70| 06 1b 0e 07 57 ab 99 c8 | 08 1b 0e 06 5c 22 15 0c |....W...|....\"..|
|00001c80| c9 ca 0d 21 21 50 14 1b | 0e 06 cb 0d 21 5c 5c 89 |...!!P..|....!\\.|
|00001c90| 16 06 aa 62 0c 2c 87 22 | 20 5b 73 74 72 20 30 20 |...b.,."| [str 0 |
|00001ca0| 6e 69 6c 20 22 22 20 64 | 65 73 74 20 63 68 72 20 |nil "" d|est chr |
|00001cb0| 69 20 6c 65 6e 20 73 72 | 65 66 20 63 68 61 72 2d |i len sr|ef char-|
|00001cc0| 74 6f 2d 73 74 72 69 6e | 67 20 72 65 67 75 6c 61 |to-strin|g regula|
|00001cd0| 74 65 2d 6c 61 74 69 6e | 2d 63 68 61 72 20 63 68 |te-latin|-char ch|
|00001ce0| 61 72 2d 62 79 74 65 73 | 5d 20 35 5d 29 0a 28 70 |ar-bytes|] 5]).(p|
|00001cf0| 72 6f 76 69 64 65 20 27 | 65 6d 75 2d 6d 75 6c 65 |rovide '|emu-mule|
|00001d00| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+